home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HamCall (October 1991)
/
HamCall (Whitehall Publishing)(1991).bin
/
bcast
/
bcstcble
/
fmamps.bas
< prev
next >
Wrap
BASIC Source File
|
1990-10-14
|
822b
|
23 lines
10 'INDIRECT FM POWER PROGRAM
20 PRINT"This program will calculate your PA current via ";
30 PRINT"the indirect method."
40 INPUT "Transmitter efficiency in decimal is ";EF
50 INPUT "ERP Licensed power in watts in decimal is ";LP
60 INPUT "Antenna power gain ( not dB gain) is ";G
70 INPUT "Coax system efficiency in decimal is ";LEF
80 PRINT
90 PRINT "What is the plate voltage "
100 INPUT E
110 LPRINT "Efficiency is ";EF*100
120 LPRINT "ERP is ";LP ;" watts"
130 LPRINT "Antenna power gain is ";G
140 LPRINT "Coax system eficiency is ";LEF*100
150 LPRINT
160 LPRINT" PERCENT PA CURRENT"
170 FOR K = 0 TO 15
180 P=LP*.90+K*LP/100
190 LPRINT 90+K,P/EF/G/LEF/E
200 NEXT K
210 INPUT "Run again "; A$: IF LEFT$(A$,1)= "Y" THEN GOTO 10
220 END